#!/usr/bin/perl -w

$wordfile='words.txt';
@testfolders = `ls | grep Test-`;


# Read file containing all words used for the experiments
#open WORDFILE, "<$wordfile";
#( -r WORDFILE ) || die "Could not open file $wordfile\n";
#@words = <WORDFILE>;
#chomp(@words); 

foreach $folder (@testfolders) {

	@words = glob("*");
	
	foreach $word (@words){
	
	 	$resultsfolder = "$folder/$word/$Results-*";

	 	@Results
	# 	foreach $resultsfolder (@resultsfolders){
	# 		chdir("$resultsfolder");
			
	# 		print $resultsfolder;

	# 	}
	}

}